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I. 


INTRODUCTION 


This report deals with the construction of the Stanford Spectral 
Digital Data Acquisition System. The objective of the system is to record 
both the spectral distribution of incoming radiation from the rock samples 
measured by the spectro- radiometer (Exotech Model 10-34 Circular 
Variable Filter (CVF) Infrared Spectro- radiometer as shown in Fig. 1. ) 
together with other weather information. 

This is a versatile and compact system which is designed for both 
laboratory and field measurement programs. The overall physical layouts 
are shown in Fig. 2 to Fig. 4. 

The multichannel inputs (8 channels) of the system are as follows: 

Ch 1 the Spectro- radiometer, Ch 2 the radiometer (PRT-5), and Ch 3 to 
Ch 8 for the weather information. The system records data from channel 1 
and channel 2 alternately for 48 times, before a fast sweep across the six 
weather channels, to form a single scan in the scan counter. The detailed 
description of the operation is illustrated in the block diagram in Section II 
and the theory of operation in Section III. The outputs are written on a 
7-track magnetic tape with IBM compatible form. The format of the tape 
and the playback computer programs are included in Section IV and Section 
V respectively. The p-PAC digital modules (Honeywell) and a CIPHER 
model 70 tape recorder (Cipher Data Products) are used. One of the major 
characteristics of this system is that it is externally clocked by the spectro - 
radiometer instead of taking data at intervals of various wave lengths by 
using internal- clocking. The interface between the electronic circuits and 
the tape recorder of the system also is quite simple. 

H. THE BLOCK DIAGRAM 

The block diagram of the system (Fig. 5) enables us to understand its 
overall functions. The encoder of the Exotech CVF infrared spectro- 
radiometer provides three basic control signals in its function as the 
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Fig. 5. The block diagram of the system 



















external clock of the system. These signals are (1) the reset, (2) the 
100 PPR , and (3) the ramp function. In the data system the START-STOP 
SIGNAL controls the start and the initialization (the preset) of the SCAN 
COUNTER as well as the system. The multiplexer (MUX) switches a 
single- ended voltage from one of its 8 channel- inputs to its common out- 
put without changing the nature of the voltage. Then the common voltage 
is applied to the buffer amplifier (BUFFER), which is a unit gain noninverting 
device having high input impedance and low output impedance. The ANALOG 
and DIGITAL circuit converts the output from the buffer amplifier into 
10-bits-word decimal data which are stored on the HOLDING REGISTER in 
the format of two-6-bits bytes. Those bytes are ready to be written on the 
7-track tape of the tape recorder CIPHER through the DATA MATRIX. 
However, the additional 2 bits in the data matrix serve for the error check- 
ing only. The timing is controlled by the ID CONTROL. The DATA CONTROL 
and the WEATHER CONTROL blocks will be described in detail later 

in Section III. 

First, the ID control gives signal to the 25-BIT COUNTER to write a 
"header" in the beginning of the tape. The header, providing the number of 
the scan, the day, the time, the sample number and the site number, is now 
located in the DATA MATRIX. Secondly, the DATA CONTROL block is 
responsible for writing Ch 1 and Ch 2 alternately for 48 times. Finally, 
the WEATHER CONTROL block controls the recording of the six weather 
channels. Furthermore, the 7-BIT COUNTER is mainly used for the 
weather channel selections. The circuit diagrams of the above mentioned 
blocks are shown in Appendicies A to L. 

III. THE THEORY OF OPERATION 

The theory of operation can be understood by the timing relations in 
the ID CONTROL, the DATA CONTROL, and the WEATHER CONTROL 
blocks. Thus, their timing diagrams are discussed separately as follows. 


A. 


The ID Control Signal Sequences 


At the release of the START button, a square wave pulse is 
generated. The negative- going edge of this square wave pulse triggers 
a 500 psec write command pulse (W. C. P. ) which in turn generates the 
4 msec duration byte-time. This byte-time is for the tape recorder to 
record one data byte. At the same time the 25-bit counter is also advanced 
once by the negative edge of the W. C. P. The ID sequences will be stopped 
as soon as the 25-bit counter reaches t^ . Meanwhile, the negative output 
(t^ ) is fed back to the enable control of the 500 psec one shot. Hence, zero 
input at this enable lead will terminate the one shot from functioning. 

Fig. 6a shows the timing diagram of the signal sequences. 

B. The Spectro-radiometer Data Channel Control Signal Sequences 

As shown in Appendix B, the 100 PPR gated by Q , Q and 

3. U 

WEATHER will trigger the DRPOT signal in the tape recorder. The 
1 psec DRPOT will in turn trigger a 12 psec square wave to account for 
the "settling time" (S. T. ) of the tape recorder. The positive and the 
negative edges of the 12 psec S. T. pulse trigger a 1 st 4 msec byte-time 
pulse and a 12 psec W. C. P. respectively. The negative edge of 
the 1 st W. C. P and the 1 st 4 msec byte-time pulse again triggers a second 
W. C. P. and a 2nd 4 msec byte-time pulse. At the end of the 2nd 4 msec 
byte-time, the DRPOT + pulse is triggered. Then the above mentioned 
cycle repeats. The sample A/D command is a negative- going pulse. This 
pulse is activated whenever Q changes state. Fig. 6b shows the 
timing diagram of the data control signal sequences. 

C. The Weather Channels Control Signal Sequences 

During the WEATHER cycle, the negative edge of the inverse "reset" 
pulse from Exotech triggers the DRPOT"*” signal which in turn triggers a 
12 psec S. T. pulse and a W. C. P. The 1st and the 2nd 4 msec byte-time 
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Fig. 6a. The ID control signal sequences 
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Fig. 6b. The data control timing sequences 


pulses are being generated in the same way as in the data control cycle. 
Now, the negative edge of the W. C. P. also acts as the clock signal for 
the 7-bit counter and the multiplexer. The weather sequence will stop 
when the 7-bit counter reaches t^. At this moment an I. R. G. command 
is applied to the tape recorder to write a record gap on the tape. Then 
the tape recorder sends back a return pulse which will activate the scan 
counter to advance on count. A whole event cycle is now completed and 
the control sequences go back to the data state. Therefore, it is ready 
for another new spectro-radio meter recording cycle. The timing diagram 
of the weather channel control signal sequences is illustrated in Fig. 7. 


IV. THE DATA FORMAT AND THE SPECIFICATIONS OF THE SYSTEM 
A. The Da*ta Format 

The tape recorder CIPHER in the system writes 7-track tapes with 
density of 200 bpi. These tapes are IBM compatible. The format of the 
tape is exhibited in Fig. 8. The header (or ID) contains 12 bytes, of which 
the first two bytes contain 3 BCD digits giving the number of scans; the 
3rd and 4th bytes give 3 BCD digits indicating the day in a year; the next 
four bytes consist of 6 BCD digits showing the time in HH:MM:SS format; 
the ninth, the tenth bytes and the remaining 11th, 12th are for the sample 
and the site respectively. Next 96 words are integer*2. Each word con- 
tains 1 0-bits-two' s-complement integer and two alternating bits for error 
checking. The 12 bits of an integer*2 are ordered in the following manner. 
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Fig. 7. The timing diagram of the weather control signal sequences. 
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Fig. 8. The tape format (6 bit bytes) 





The 96 words contain alternately , (1) the spectral samples over 48 
different frequencies and (2) the 48 radiometer samples taken during 
the spectrum sweep. At the end, there are 6 words supplied from 6 
different input channels of the ground meteorological information. An 
interrecord gap (IRG) is written at the end of the weather data, then, the 
next sampling cycle follows. After the system completes taking data, a 
file gap is written by pushing the file gap button on the panel of the system. 

B. The Specifications of the Digital Data Acquisition System 

This section contains general specifications of the digital data 
acquisition system. The detailed specifications of the tape recorder 
CIPHER, the Honeywell p-PAC 1/ C Modules, and the Exotech 10 Spectro- 
radiometer are in References I, II, and V. 

1 . Logical Levels 

logical ZERO 0. 00 V to 0. 35 V (max) 
logical ONE 3. 50 V (min) to 6. 3 V (max) 

2. Temperature Range 

0° to 40° C 

3. Power Supply Requirements 

(a) A/D jh(24 J- 1) volts 

(b) other circuits jh(6 _+ 0, 3) volts 

(c) lamp indicators +14 + 4 volts 

4. Current Requirements 

They are listed in the specifications for each individual 
p-PAC in reference I. 

5. Accuracy of the Outputs 

The output accuracy of the digital system is approximately 
+ 0.15 volts. 


II 



6. Wavelength Region for Exotech 10 Spectro- radiometer 

7 to 14 jo. 

7. Input Requirements 

The input voltage of each channel should stay within 
+ 10 volts 

V. THE TAPE PROGRAMS WITH ILLUSTRATION OF DATA 

The computer programs used are the revised tape-dump programs. 
They are listed later in this section. 

To test the digital system, we use constant DC inputs to verify the 
digitized outputs. An example of those outputs is illustrated in Fig. 9. 

For the purpose of checking each bit in the output, we printed out the 
hexadecimal values instead of integers. There are 6 records in Fig. 9 
in which the first record is the header (or ID) and the remaining 5 records 
are data. Because the IBM computer does not read any record less than 
18 bytes, we have had to insert 10 redundant bytes in front of the ID. Each 
bit of the redundant bytes has the logical level ONE. Thus, in the hexa- 
decimal format, one data-word becomes "3F3F". The rest information 
in the first record is the ID in BCD format. They are interpreted as 


follows. 



ID 

Hex 

Decimal 

day 

1419 

456 

time (HH:MM:SS) 

21 0C 1419 

12:34:56 

sample 

0726 

789 

site 

1008 

012 


The record Nos. 2 to 6 in Fig. 9 are data. Each of the records has 204 
bytes in which the first 192 bytes are from alternating spectrometer and 
radiometer inputs, the remaining 12 bytes are from 6 weather channel 
inputs. The relation among the hexadecimal, the decimal data words. 
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Fig. 9. An example of the computer output from the tape playback programs. (The explaination is 


and the output voltages is shown in the following example 


Hex 

Decimal 

Output (voltages) 

3F3F 

1023 

+10. 00 

0000 

0 

-10. 00 

0020 

0 

o 

o 

* 

o 

r—4 

* 

0010 

512 

0. 00 

0030 

512 

0. 00 

270F 

497 

-0. 29 

260F 

492 

-0. 39 

3D1 2 

605 

+1. 82 

3C1 2 

604 

o 

00 

r— H 
+ 

2B0F 

491 

-0. 41 

2A0F 

490 

-0. 43 

2918 

777 

+5. 18 

2D0F 

493 

-0. 37 


The accuracy of the outputs is approximately within + 0. 15 volts, resulting 
from the variations of the first three bits in the first byte of a data word, 
that is the system is 10-bit but the accuracy is 7-bits. The computer 
programs are listed as follows. 



/ / RS L JOB (J032, 332),TM.TRKLOAD. SOURCE 
//FORT EXEC PGM=FORTH, PARM='XREF,MAP,OPT=2' 

//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL, (3,3) ) 

//SYSUT2 DO UNIT=SYSDA,SPACE=(CYL, (3,3)) 

//SYSLIN OD DSN=*PUNCH,UNIT=SYSDA,DISP=(MOD,PASS), 

// SPACE»(CYL, (3,3)),DCB»(RECFM=FB,LRECL=80, BLKS I ZE-3200 ) 

//SYSPRINT DD SYSOUT»A 
//SYSIN DD * 

cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc 
c 

C PROGRAM TRKLOAD -- TRUCK TAPE TO DISK 

C TONY MARSHALL — STANFORD REMOTE SENSING LABORATORY 

C 

C THIS PROGRAM READS TRUCK TAPES AND CREATES TWO OUTPUT FILES. 

C DATA RECORDS ARE STORED IN A DIRECT ACCESS DATASET, AND 

C IDENTIFICATION RECORDS ARE STORED IN A SEQUENTIAL DATASET 

C WITH POINTERS TO 
C 

C SPECTAPE 

C 

C DIRECT 

C 

C FT10F001 

C 

C FT06F001 

C FT04F001 

C FT05F001 

C 
C 

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 

c 


HE CORRESPONDING DATA. 

— DDNAME OF TRUCK TAPE. 

NO DCB PARAMETERS REQUIRED. 

-- DDNAME OF DATA OUTPUT FILE. 
DCB=(DSORG=DA,BLKSIZE=204) 

— DDNAME OF IDENTIFICATION FILE. 

DCB= ( RECFM=FB, LRECL=40, BLKS IZE=3520) 

-- DDNAME OF IDENTIFICATION LISTING FILE. 

— DDNAME OF DATA LISTING FILE. 

— DDNAME OF PARAMETER INPUT FILE. 

&PARMS L IST=F, ERRCNT=10, TERR=F, AEND 


C 

C 

C 

C 


IMPLICIT I NTEGER*2 (A-Z) 

INTEGER KEY/1/, COUNT/O/, PRINT/6/, INDEX/10/, DUMP/4/, LRECL 
INTEGER ERRCNT/10/, CARD/5/, NERR/0/, NIDS/0/, NINV/0/, NREADS/O/ 
INTEGER JUMP, DATE ( 5 ) , I, J, K, L, M, N 
INTEGER DTLEM, IDLEN/20/, DTSIZ/48/ 

LOGICAL LIST /.FALSE./, TERR /.FALSE./ 

DIMENSION SAVE I D( 6 ) 


RDTRK COMMON DEFINITION 

COMMON /TDATA/ !NPA(200), I DENT ( 6 ) , SPECTU8), RADIO(48), MULT(6) 

DEFINE DIGITIZED (0,1023) TO DECIVOLTS (-100,100) FORMULA 
DVOLT ( RAW) = ( 200*RAW - 102300) / 1023 


C 

C DEFINE AND READ NAMELIST 

NAMELIST /PARMS/ ERRCNT, LIST, TERR 
READ (CARD, PARMS, END=2) 


2 CONTINUE 

C 

C INITIALIZE 

DTLEN = DTS I Z*4 + 12 




oooooooooooooooooooo 



c 


! F (TERR) CALL NOERR 


C 

11 


C 


C 

12 

10 

C 

C 

20 

C 


C 

C 


C 

C 

30 

31 

32 
C 


C 


CALL DATER (DATE) 

WRITE ( PR I NT, 65 ) DATE 

ASSIGN 11 TO JUMP 
CALL RDTRK ( LRECL) 

NREADS = NREADS + 1 
IF (LRECL .EQ. IDLEN) GOTO 12 
IF (LRECL .LT. 0) GOTO 80 
IF (LRECL .EQ. 0) STOP 

BUFL = LRECL/ 2 

WRITE (PR I NT# 61) NREADS/ LRECL/ (INPA(J)/ J = 1/BUFL) 
NINV = NINV + 1 
GOTO 11 

DO 10 I = 1/6 

SAVE I D ( I ) = IDENT(I) 

SAVKEY = KEY 

READ INPUT TAPE 
ASSIGN 20 TO JUMP 
CALL RDTRK (LRECL) 

NREADS = NREADS + 1 

IF (LRECL .EQ. DTLEN) GOTO 30 
IF (LRECL .EQ. IDLEN) GOTO 40 
IF (LRECL .EQ. 0) GOTO 50 
IF (LRECL .LT. 0) GOTO 80 

BAD LRECL IGNORE RECORD 
NINV = NINV + 1 
BUFL = LRECL/ 2 

WRITE (PRINT/61) NREADS/ LRECL/ (INPA(J)/ J = 1/BUFL) 
WRITE (PRINT/67) 

GOTO 20 


DATA RECORD FOUND 

DO 31 M = 1/DTSIZ 

SPECT(M) = DVOLT(SPECT(M) ) 

RADIO(M) = DVOLT(RADIO(M) ) 

DO 32 M = 1/6 

MULT(M) = DVOLT(MULT(M) ) 


CALL DALOAD (SPECT/ KEY) 
IF (.NOT. LIST) GOTO 49 


WRITE (DUMP/72) KEY/ 
WRITE (DUMP/ 73) 

WRITE (DUMP/ 74) MULT 


(SPECT(N) / N = 1/DTSIZ) 
(RADIO(N)/ N = 1/DTSIZ) 




C 



49 KEY = Key + 1 
COUNT = COUNT + 1 
GOTO 20 

C 

C IDENTIFICATION RECORD FOUND 

40 IF (COUNT .NE. 0) GOTO 47 

C 

C IDENTIFICATION RECORD CONTAINS NO DATA 

WRITE ( PR I NT/ 62 ) SAVEID 
NINV = NINV + 1 
GOTO 45 
C 

C WRITE IDENTICATION RECORD 

47 NIDS = NIDS + 1 

WRITE (INDEX, 66) SAVEID, SAVKEY, COUNT 
WRITE ( PR I NT, 64 ) NIDS, SAVEID, SAVKEY, COUNT 
SAVKEY = KEY 
COUNT = 0 
C 

45 DO 46 I * 1,6 

46 SAVE I D ( I ) - I DENT ( I ) 

GOTO 20 

C 

C END OF FILE EXIT 

50 IF (COUNT .NE. 0) GOTO 48 
C 

C IDENTIFICATION RECORD CONTAINS NO DATA 

WRITE (PRINT, 62) SAVEID 
NINV * NINV + 1 
GOTO 60 
C 

C WRITE FINAL IDENTIFICATION RECORD 

48 NIDS - NIDS + 1 

WRITE (INDEX, 66) SAVEID, SAVKEY, COUNT 
WRITE (PR I NT, 64) NIDS, SAVEID, SAVKEY, COUNT 
C 

60 NREADS = NREADS - 1 
KEY = KEY - 1 

WRITE (PR I NT, 63) NREADS, NIDS, KEY, NINV, NERR 
IF (LIST) WRITE (DUMP, 63) NREADS, NIDS, KEY,' NINV, NERR 
STOP 
C 

C READ ERROR ROUTINE 

80 WRITE (PRINT, 69) NREADS, (INPA(J), J = 1,160) 

NERR = NERR + 1 

IF (NERR .LE. ERRCNT) GOTO JUMP, (11, 20) 

C 

C TOO MANY ERRORS 

WRITE (PRINT, 71) NREADS 
STOP 
C 
C 

C FORMATS 
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c 

61 FORMAT (///' RSL0421 RECORD', 15,' INVALID' ,14,' BYTES'// 

* (' RSL042 I ' , 16Z6 ) ) 

C 

62 FORMAT (///' RSL040I IDENTIFICATION RECORD CONTAINS NO DATA'// 

* ' RSL040I DAY IS ',19/ 

* ' RSL040I TIME IS ',313/ 

* ' RSL040I SAMPLE IS', 19/ 

* ' RSL040I SITE IS ',19///) 

C 

63 FORMAT ( ' 1RSL000 1 ' , I 6, ' RECORDS READ'/ 

* ' RSL000I ', 16, ' IDENTIFICATION RECORDS SAVED'/ 

* ' RSL000I ', 16, ' DATA RECORDS SAVED'/ 

* ' RSL000I ', 16, ' INVALID RECORDS FOUND'/ 

* ' RSLOOOI ', 16, ' PERMANENT READ ERRORS'// 

* ' RSL001I NORMAL END OF RUN') 

C 

64 FORMAT (T15, 1 4, ' ) DAY » ' , 1 4, ’ ; TIME =',313,'; SAMPLE =', 

* 14,'; SITE “',14,.'; START -',15,'; COUNT =',I3) 
C 

65 FORMAT ( ' 1 ' , T35, ' I DENT I F I CAT ION RECORDS SAVED ON ',5A4//) 

66 FORMAT (815) 

67 FORMAT (////) 

C 

69 FORMAT (///' RSL044I RECORD NO', 15,' PERMANENT READ ERROR'// 

* 10 ( ' RSL044I ',16Z6/)///) 

C 

71 FORMAT (///' RSL046I I/O ERROR COUNT EXCEEDED ',15, 

* ' RECORDS READ') 

72 FORMAT (' 1 ' ,T32, ' RECORD NO. ',15///' SPECTROMETER DATA ' // ( 8 1 10 ) ) 

73 FORMAT (////' RADIOMETER DATA' // ( 8 1 10) ) 

74 FORMAT (////' MULTIPLEXED DATA'//6I10) 

END 

// LKED EXEC PGM- I EWL, PARM=( LET, L I ST, XREF ) , COND=( 5, LT) 

//SYSUT1 DD DSN-SYS1.UT1,DCB-KEYLEN=0,DISP=0LD 
//SYSLIN DD DSN-& PUNCH, DISP*(OLD, DELETE) 

//SYSLMOD DD DSN- J032 . PROGL I B (TRKLOAD ) , VOL-SER-SYS1 2, UN I T-231 4, D I SP-OLD 
//SYSLIB DD DSN-SYS1. FORT LIB, DISP-SHR 

// DD DSN=J032.SUBLIB,VOL=SER=SYS12, UNIT-2314, DISP-SHR 

//SYSPRINT DD SYSOUT-A 

//GO EXEC PGM-*. LKED. SYSLMOD, COND=(5,LT) 

//FT06F001 DD SYSOUT-A 

//FT04F001 DD SYSOUT-A, DCB=( RECFM-F A, B LKS I ZE-13 3 ) 

//FT10F001 DD DSN-J032. TRUCK. I NDEX5, VOL-SER-SYS15, UN IT-2314, 

// D I SP=( NEW, KEEP, DELETE), SPACE-CTRK, 10, RLSE), 

// DCB=(RECFM=FB,LRECL=40,BLKSIZE=3520) 

//SPECTAPE DD DSN-J03 2 . TRUCK. TEST. DATA5, VOL=SER=SYS14,UN IT-2314, 

II d I SP-SHR 

//DIRECT DD DSN-J03 2. TRUCK. DATA 5, VO L = SER= SYS 15, UN IT-2314, 

// D I SP=( NEW, KEEP, DELETE), SPACE=(TRK, 10, RLSE), 

// DCB=(BLKSIZE=204,DS0RG=DA) 

/ /FT05F001 DD * 

% PA RMS LIST-T, &END 




/ / RS L JOB (J032, 332), TM.PDTRK. SOURCE 
//ASM EXEC PGM=ASMGASM,PARM=(FULLXREF,ESD) 

//SYSIJT1 DO DSN=SYS1.UT1,DCB=(KEYLEN=0,BLKSIZE=10175),RISP=OLP 
//SYSIJT2 DO DSN=SYSl.UT2,DC3=BLKSIZE=7294,niSP=OLD 
//SYSUT3 DO OSN=SYSl.UT3,DCR=3LKSIZE=7294,OISP=OLD 
//SYSL1N DD OSN=SPUNCH,UNIT=SYSDA,niSP«(MOP,PASS), 

// SPACE=(CYL, (3,3) ),OCR=(RECFM«FM,LRErL=80,RLKSIZE=32nn) 

// SYSL I R on DSN=SYS1.MACLIB,DISP=SHR 


// 


DD DSN=J032.MACLIB,V0L=SER=SYS10,UNIT=2314,DISP=SHR 


//SYSPRINT DD SYSOUT=A 
//SYS1N DD * 



TITLE 

'ASSEMBLY PARAMETERS' 

SONS 1 Z 

EQU 

0 

SGDS 1 Z 

EOU 

4S 


TITLE 

' SG-4 SPECTROMETER TAPE 


PRINT 

NOGEN 

RDTRK 

LINKS 

SPACE 

2 


* 
* 
* 


SUBROUTINE RDTRK CLPECL) 

TONY MARSHALL -- STANFORD REMOTE SENSING LAB 


* 


* 


* 


LRECL — SIZE IN BYTES OF CURRENT RECOPD, SET TO ZERO 
ON EOF READS. 

SPECTAPE -- DDNAME FOR INPUT DATA SET 
TDATA — FORTRAN COMMON, HALFWORD INTEGERS 


COMMON /TDATA/ INPA(200), !OENT(6), SPECT( 48 ) , PAD|0(48), MULT(F) 


* THIS FORTRAN CALLABLE SUBROUTINE READS AND CONVERTS DATA 

* READ FROM 7-TRACK MAG TAPE GENERATED BY STANFORDS SO-4 

* spectrometer SYSTEM. 

* THE RAW DATA IS CONTAINED IN TWO DIFFERENT RECORD FORMATS 

* EACH OF A DIFFERENT PHYSICAL LENGTH AND DATA RECORDING MODE 

* THE IDENTIFICATION RECORD CONTAINS DATA IN A PACKED BCD 

* FORMAT WHERE EACH PAIR OF SIX BIT BYTES CONTAIN THREE 

* FOUR BIT BCD CHARACTERS . 

* 

* TAPE DATA FORMAT: 001FGHIJ 000ABCDE 

* CONVERTED FORMAT: 009000AB CDEFGM | j 


* TAPE BCD FORMAT: OHEF |JKL OOABCD OH 

* CONVERTED FORMAT: A BCD + 1 n*EFGH + 100*IJKI. 

* 

* THE DATA IS RETURNED IN COMMON TO FORTRAN, ALL NUMBERS 

* ARE CONVERTED TO 16 BIT TWOS COMPLIANT I NTFGERS . 

* 




SPACE 2 

L LRECL, 0(0, PARM) GET ARG ADDRESS 

SR COUNT, COUNT SFT COUNT TO ZERO 

TITLE 'OPEN, READ, CLOSE SECTION' 




TOPEN 

SPECTAPE, READ 



OPFN 

(SPECTAPE) 



TOPEN 

SPECTAPE# READ 

CARD MISSING' 


WTO 

•RSL100I SPECTAPE DD 


ABEND 

space 

20# DUMP 

»s» 

READ 

REAO 

DEC8#SF#SPECTAPE# IN PA# 


CHECK 

DECB 



LTR 

COUNT# COUNT 

DID WE GET AN ERROR? 


BM 

EXIT 

IF SO EXIT 


L 

CBASE# = V(TDATA) 

ESTABLISH COMMON BASE REG 


USING 

1 NPA# CBASE 



BAL 

SPACE 

L 1 NKR# BLKS 1 ZE 

GET BYTE COUNT FOR THIS BLOCK. 


C 

COUNT# a A(SGI DS 1 Z) 

CHECK FOR IDENT RECORD 


BE 

IDCONV 



C 

COUNT, a A(SGDTS 1 Z) 

CHECK FOR DATA RECORD 


BE 

DATACONV 



B 

SPACE 

EXIT 

RECORD LENGTH ERROR 

EODAO 

CLOSE 

(SPECTAPE# LEAVE ) 

LEAVE IN CASE OF MULTIPLE FILES 

EXIT 

ST 

COUNT# 0(0#LRECL) 

RETURN LRECL TO FORTRAN 


L 

SAVER, 4(0#SAVER) 



RETURN 

( 14# 12) 



TITLE 

'IDENTIFICATION CONVERSION ROUTINE' 

IDCONV 

OS 

OH 



BCD 

DAY# SGDAY 



BCD 

TIMEH#SGT!ME 



BCD 

T 1 MEM# SGT 1 ME + 2 



BCD 

SAMPLE# SGSAMPLE 



BCD 

SPACE 

S 1 TE# SGS 1 TE 



SR 

TEMP#TEMP 

FIX TIME 


LH 

TEM2#TIMEM 

LOAD LOWEST THREE DIGITS 


D 

TEMP# =F ' 100 ’ 

EXTRACT LOW ORDER TWO DIGITS 


STH 

TEMP, TIMES 

STORE SECONDS 


ST 

TEM2, CSAVE 

SAVE LOW ORDER MINUTES DIGIT 


LH 

TEM2, T 1 MEH 

LOAD HIGH ORDER THREE DIGITS 


SR 

TEMP, TEMP 

CLEAR EVEN REGISTER 


D 

TEMP, **F ' 10 ' 

EXTRACT HIGH ORDER TWO DIGITS 


STH 

TEM2, T IMEH 

SAVE HOUR DIGITS 


MH 

TEMP, =H ' 10 ' 

SCALE HIGH ORDER MINUTE DIGIT 


A 

TEMP, CSAVE 

ADD LOW ORDER MINUTE DIGIT 


STH 

TEMP# T 1 MEM 

SAVE MINUTES 


B 

EXIT 


CSAVE 

DS 

F 



TITLE 

'DATA CONVERSION ROUTINE' 

DATACONV 

DS 

OH 



LA 

PO 1 NT# SGCHANLA 

CONVERT SPECT/RADIO DATA 


LA 

STEP# 4 



LA 

L I W | T, SGMULT-4 



SR 

INDEX, INDEX 




*0 





SPACE 



DLOOP 

DS 

OH 



TENBIT 

SPECT( INDEX), 0(0, POINT) 


TENBIT 

RAD 1 0 ( INDEX) ,7(0, PCI NT) 


1 A 

INDEX, 2(0, INDEX) 



!*. x i r 

POINT, SITP, Dl 001* 



SPACE 




LA 

LIMIT, fi 

CONVERT MULTIPLEX DATA 


SR 

1 NDEX, INDEX 


MLOOP 

DS 

OH 



TENBIT 

MULT ( INDEX),SGMULT( INDEX) 


LA 

INDEX, 2(0, INDEX) 



BCT 

LIMIT, MLOOP 



B 

EXIT 



TITLE 

•routine to turn off 

ERROR RETRY BITS' 


ENTRY 

NOERR 



SPACE 




USING 

*,15 


NOERR 

01 

SPECTAPE+49,X'0C' 



BR 

14 

SHOULD BE CALLED BEFORE OPEN 


DROP 

15 



TITLE 

' INPUT BLKSI ZE ROUTINE' 

BLKSI ZE 

DS 

OH 



L 

POINT, DECB+16 

GET POINTER TO STATUS INFO 


L 

TEMP, 12(0, POINT) 

GET RESIDUAL COUNT 


N 

TEMP, MASK 

ONLY USE LOW ORDER HALFWORD 


L 

COUNT, SPECTAPE+60 

GET BLKSIZE FROM DCB 


N 

COUNT, MASK 

ONLY USE LOW ORDER HALFWORD 


SR 

COUNT, TEMP 

SUBTRACT REMAINDER 


BR 

LINKR 

RETURN 


DS 

OF 


MASK 

DC 

X ' OOOOFFFF ' 



TITLE 

’READ ERROR ROUTINE' 


SYNAD 

DS 

OH 



SYNADAF 

ACSMETH=BSAM 



STM 

14,1, ERRSAV 

SAVE OS REGISTERS 


MVC 

STATUS(27),=CL27'RSL110I I/O ERROR INFO 


MVC 

STATUS+27(78),50(PARM) 


WTOP 

STATUS, LIMIT=20,MF=E 



L 

COUNT, =F ' -1 ' 

SET ERROR FLAG 


SYNADRLS 



LM 

14,1, ERRSAV 

RESTORE THE REGISTERS 


BR 

14 

RETURN TO CHECK MODULE 


3 / 



TDATA 


COM 

COPY RDTRK 

TITLE 'REGISTER DEFINITIONS' 
PARM ECU 1 

TEMP EQU 2 

TEM2 EQIJ TEMP+1 

STEP EO.U 4 

LIMIT EQU 5 

L n E C L EOll 6 

BCD EOU 7 

COUNT EOU 8 

POINT EQU 9 

INDEX EQU 10 

CBASE EOU 11 

BASE EOU 12 

SAVER F OH 1? 

LINKR EOU 14 

END 


/* 

// LKED EXEC PO M = I E 1 '/!., PAR”* C LET, L I ST, X REF, NCAL ) , CCNO = ( S, LT) 

/ / SYSUT1 DO DSN=SYSl.UTl / nCB=KEYLEN=0 / o| SP=OLn 
//SYSLIN DO DSN = m.'NCH,D|SP*(OLD, DELETE) 

//SYSLMOD DD DSN* JR32 . SURL I B( RDTRlO , V0L=SER=SYS1 2, UN I T = 23 1 4, 0 I s P = OL n 
//SYSPRINT DO SYSOUT = A 
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VIII. APPENDICES 


A. The operational procedures: 

(1) Mount the 7-track tape on the CIPHER. 

(2) Turn on the power of the CIPHER. 

(3) Turn on the power supplies of the system: (a) + 6 V, 

(b) +18 V, (c) + 24 V. 

(4) Push load button (the ready light should be on when the 
silver marker of the tape passes the sensor to the right). 

(5) Set the ID (i. e. , the day, the time, the sample number, and 
the site number). 

(6) Set scan number at 000. 

(7) Turn on power of Exotech- 10 

(8) Load liquid into the Hg Cd Te detector. 

(9) Set the ramp speed and turn on the switch of the electronic 
package of Exotech. 

(10) Adjust the temperature null of Exotech. 

(11) Push the START button (the complete light should be on). 

(12) Set the number of scans. 

(13) Plug in the inputs (i. e. , channel-1, channel-2, and six 
weather channels-- be sure that the inputs are less than +10 V 
and larger than -10V , any voltage beyond this range would 
damage the A/D converter!!! 

(14) Push the FILE GAP button after the scan is over. 

(15) Repeat (5) to (14) if any more operations have to be made. 

(16) Turn off the switch of the electronic package of Exotech 
and press the FILE GAP button three times at the end 
of recording. 

(17) Turn off the power supplies, rewind the tape, and turn off 
the power of CIPHER. 
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CIRCUIT DIAGRAMS 


B. 

C. 

D. 

E. 

F. 

G. 

H. 

I. 

J. 

K. 

L. 


The data control circuit. 

The weather control circuit. 

The ID control circuit and the gating for 1st and 2nd five bits. 
The multiplexer and A/D hookup. 

The 7- and 25-bit counters. 

The scan counter. 

The 10- bit holding register. 

The main control circuit (start/ stop). 

The 64 ppr and the reset pulses generator. 

The data matrix. 

The multiplexer and the status indicators. 


2S' 










LJeatter Control (4-n.) I.D. 



yu^ ivQp £sl 7 /-. 










A,E,r -6 

~74V iatfV £H4&3 



(5 ) Mux and A/D Hookup 

?U-u^(±S)8 Fi^JL K-3 

















F,UX 7/ - 











Scan Counter 


>S> 










(8) tO Bif Holdmj Register 
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fr°J 64 PPR and Reset Pulses Generator 
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